home *** CD-ROM | disk | FTP | other *** search
- object SimpleForm: TSimpleForm
- Left = 193
- Top = 98
- ActiveControl = btlLogon
- BorderIcons = [biSystemMenu, biMinimize]
- BorderStyle = bsDialog
- Caption = 'Simple DCU Demo for DELPHI'
- ClientHeight = 291
- ClientWidth = 429
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'Arial'
- Font.Style = []
- PixelsPerInch = 96
- Position = poScreenCenter
- OnCreate = FormCreate
- TextHeight = 16
- object btlLogon: TButton
- Left = 16
- Top = 8
- Width = 81
- Height = 25
- Hint = 'Sign On your Mail System'
- Caption = 'Login'
- Default = True
- ParentShowHint = False
- ShowHint = True
- TabOrder = 0
- OnClick = btlLogonClick
- end
- object GroupBox1: TGroupBox
- Left = 16
- Top = 40
- Width = 401
- Height = 225
- Caption = 'Inbox Information'
- TabOrder = 1
- object Label2: TLabel
- Left = 16
- Top = 88
- Width = 152
- Height = 16
- Caption = 'Current Message Number:'
- end
- object szMsgNum: TLabel
- Left = 176
- Top = 88
- Width = 113
- Height = 16
- AutoSize = False
- end
- object Bevel1: TBevel
- Left = 48
- Top = 32
- Width = 289
- Height = 33
- end
- object Label1: TLabel
- Left = 56
- Top = 40
- Width = 127
- Height = 16
- Caption = 'Total Message Count:'
- end
- object szCount: TLabel
- Left = 192
- Top = 40
- Width = 137
- Height = 16
- AutoSize = False
- end
- object Label3: TLabel
- Left = 16
- Top = 120
- Width = 48
- Height = 16
- Caption = 'Subject:'
- end
- object Label4: TLabel
- Left = 16
- Top = 152
- Width = 56
- Height = 16
- Caption = 'NoteText:'
- end
- object szSubject: TEdit
- Left = 80
- Top = 120
- Width = 297
- Height = 24
- Hint = 'Message Subject'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 0
- end
- object szNoteText: TMemo
- Left = 80
- Top = 152
- Width = 297
- Height = 65
- Hint = 'Message Note Text'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 1
- end
- end
- object btnFirst: TButton
- Left = 224
- Top = 8
- Width = 89
- Height = 25
- Hint = 'Fetch First Message'
- Caption = 'Fetch First'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 2
- OnClick = btnFirstClick
- end
- object btnNext: TButton
- Left = 320
- Top = 8
- Width = 89
- Height = 25
- Hint = 'Fetch Next Message'
- Caption = 'Fetch neXt'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 3
- OnClick = btnNextClick
- end
- object MXForm1: TMXForm
- Left = 196
- Top = 268
- Width = 221
- Height = 18
- MXFormName = 'FormTag4'
- end
- object MXSession1: TMXSession
- Left = 0
- Top = 252
- Width = 30
- Height = 30
- Custom = 'Push ... for Custom Properties'
- end
- object MXMessage1: TMXMessage
- Left = 0
- Top = 204
- Width = 30
- Height = 30
- Custom = 'Push ... for Custom Properties'
- BindString = 'MXSession1'
- TimeFormat = '%m/%d/%y'
- end
- end
-